home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr27 / ms242.zip / DEUTSCH.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-15  |  3KB  |  137 lines
  1. /* DEUTSCH.CMD: Installation von MEMSIZE in Deutsch. */
  2.  
  3. '@Echo Off'
  4.  
  5. /* REXXUTIL laden */
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10.  
  11. /* Initialisieren */
  12.  
  13. Signal On Failure Name FAILURE
  14. Signal On Halt Name HALT
  15. Signal On Syntax Name SYNTAX
  16.  
  17. Call SysCls
  18. Say 'Installation von MEMSIZE...'
  19. Say ''
  20.  
  21.  
  22. /* Nachprüfen, ob bestimmte Bestandteile vorhanden sind. */
  23.  
  24. Language = 'DEUTSCH'
  25.  
  26. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  27. If Files.0 = 0 Then
  28.   Do
  29.   Say 'FEHLER: MEMSIZE.EXE nicht gefunden!'
  30.   Signal DONE
  31.   End
  32.  
  33. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  34. If Files.0 = 0 Then
  35.   Do
  36.   Say 'FEHLER: 'Language'.DLL nicht gefunden!'
  37.   Signal DONE
  38.   End
  39.  
  40. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  41. If Files.0 = 0 Then
  42.   Do
  43.   Say 'FEHLER: 'Language'.HLP nicht gefunden!'
  44.   Signal DONE
  45.   End
  46.  
  47. /* Zielverzeichnis erfragen. */
  48.  
  49. Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin'
  50. Say '  MEMSIZE installiert werden soll (Standard: C:\OS2\APPS): '
  51. Pull Directory
  52. If Directory = "" Then Directory = 'C:\OS2\APPS'
  53.  
  54.  
  55. /* Zielverzeichnis, falls nötig, anlegen. */
  56.  
  57. Result = SysFileTree( Directory, 'Dirs', 'D' )
  58. If Dirs.0 = 0 Then
  59.   Do
  60.   Result = SysMkDir( Directory )
  61.   if Result == 0 Then
  62.     Do
  63.     End
  64.   Else
  65.     Do
  66.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  67.     Signal DONE
  68.     End
  69.   End
  70. Say '';
  71.  
  72.  
  73. /* Im Systemstart-Ordner installieren? */
  74.  
  75. Say 'Möchten Sie das Programmobjekt im Ordner Systemstart haben? (J/N)'
  76. Pull YesNo
  77. If YesNo = "J" Then
  78.   Do
  79.   Folder = '<WP_START>'
  80.   Say 'Objekt wird im Systemstart-Ordner plaziert.'
  81.   End
  82. Else
  83.   Do
  84.   Folder = '<WP_DESKTOP>'
  85.   Say 'Objekt wird auf der Arbeitsoberfläche plaziert.'
  86.   End
  87. Say ''
  88.  
  89.  
  90. /* Installation durchführen. */
  91.  
  92. Say 'Kopiere MEMSIZE nach ' Directory '...'
  93. Copy MEMSIZE.EXE Directory                  '1>NUL'
  94. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  95. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  96. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  97.  
  98. Result = SysFileTree( Language".INF", 'Files', 'F' )
  99. If Files.0 > 0 Then
  100.    Do
  101.    Copy Language".INF" Directory"\MEMSIZE.INF"  '1>NUL'
  102.    End
  103.  
  104. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  105. If Files.0 > 0 Then
  106.    Do
  107.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  108.    End
  109.  
  110. Say 'Erzeuge Programmobjekt...'
  111. Type = 'WPProgram'
  112. Title = 'Systemresourcen'
  113. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  114. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  115.  
  116. If Result = 1 Then
  117.   Say 'Objekt erzeugt!  Fertig.'
  118. Else
  119.   Say 'FEHLER: Nicht erzeugt!'
  120.  
  121. Signal DONE
  122.  
  123. FAILURE:
  124. Say 'Fehler in der REXX-Ausführung.'
  125. Signal DONE
  126.  
  127. HALT:
  128. Say 'REXX-Halt.'
  129. Signal DONE
  130.  
  131. SYNTAX:
  132. Say 'REXX-Syntaxfehler.'
  133. Signal DONE
  134.  
  135. DONE:
  136. Exit
  137.